home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / p / pov / povlisti.ngs / stonewal.pov < prev    next >
Encoding:
Text File  |  1992-07-02  |  2.8 KB  |  145 lines
  1. // Persistence Of Vision raytracer version 1.0 sample file.
  2.  
  3. // By Dan Farmer
  4. //    Minneapolis, mn
  5. /*
  6.       a pastoral scene with a granite stone fence.  This was never really
  7.       "finished", but it works as it is.  Plenty of material to play around
  8.       with here.  The basic building blocks are here... just use your
  9.       imagination.
  10. */ 
  11. #include "shapes.inc"
  12. #include "colors.inc"
  13. #include "textures.inc"
  14.  
  15. camera {
  16.    location <50.0  40.0  -350.0>
  17.    look_at <-100.0 0.0 0.0>
  18.    direction <0.0 0.0 2.0>
  19.    right < 1.3333 0.0 0.0 >
  20. }
  21.  
  22. /* Add light source */
  23. object {
  24.    light_source { <100.0  200.0  -630.0>
  25.       color White
  26.    }
  27. }
  28.  
  29. object {
  30.    light_source { <50.0  20000.0 50.0>
  31.       color White
  32.    }
  33. }
  34.  
  35. /* Add the sky to the picture */
  36. object {
  37.    sphere { <0.0 0.0 0.0> 1000000.0 }
  38.    texture {
  39.       color SkyBlue
  40.       diffuse 0
  41.       ambient 1
  42.    }
  43.    color SkyBlue
  44. }
  45.  
  46. /* Grassy meadow */
  47. object {
  48.    plane { <0.0 1.0 0.0> -2.0 }
  49.    texture {
  50.       0.05  /* This value dithers the colors */
  51.       color red 0.2 green 1.0 blue 0.4
  52.       waves 1.0
  53.       frequency 2000.0
  54.       scale <50000.0 50000.0 50000.0>
  55.       ambient 0.1
  56.       diffuse 0.3
  57.    }
  58.    color red 0.2 green 1.0 blue 0.4
  59. }
  60.  
  61. #declare Wall_Segment = object {
  62.    intersection { Cube }
  63.    scale <8.0 50.0 100.0>
  64.    texture {
  65.       0.05
  66.       granite
  67.       ambient 0.2
  68.       diffuse 0.8
  69.       brilliance 7.0
  70.       reflection 0.1
  71.       phong 1.0
  72.       phong_size 60
  73.    }
  74.    color White
  75. }
  76.  
  77. #declare Granite_Ball = object {
  78.    sphere { <0.0 0.0 10.0> 10.0 }
  79.    texture {
  80.       0.05
  81.       granite
  82.       ambient 0.2
  83.       diffuse 0.8
  84.       brilliance 7.0
  85.       reflection 0.1
  86.       phong 1.0
  87.       phong_size 60
  88.    }
  89.    color White
  90. }
  91.  
  92. #declare Column = object {
  93.    intersection { Cube }
  94.    scale <12.0 60.0 12.0>
  95.    texture {
  96.       0.05
  97.       granite
  98.       ambient 0.2
  99.       diffuse 0.8
  100.       brilliance 7.0
  101.       reflection 0.1
  102.       phong 1.0
  103.       phong_size 60
  104.    }
  105.    color White
  106. }
  107.  
  108. /* note: Granite column is 12 wide x 12 deep x 60 high
  109.         Granite ball has a radius of 20 */
  110. #declare Pillar = composite {
  111.    object { Column       translate <0.0  0.0 0.0> }
  112.    object { Granite_Ball translate <0.0 70.0 0.0> }
  113. }
  114.  
  115. /* Note: Wall segments are 100 units long, Pillars are 12 units "long" */
  116. composite {
  117.    Pillar
  118.    translate <0.0 0.0 -106.0 >
  119. }
  120. object {
  121.    Wall_Segment
  122.    translate <-2.0 0.0 -6.0 >
  123. }
  124. composite {
  125.    Pillar
  126.    translate <0.0 0.0 0.0 >
  127. }
  128. object {
  129.    Wall_Segment
  130.    translate <-2.0 0.0 112.0 >
  131. }
  132. composite {
  133.    Pillar
  134.    translate <0.0 0.0 112.0 >
  135. }
  136. object {
  137.    Wall_Segment
  138.    rotate <0.0 -90.0 0.0>
  139.    translate <76.0 0.0 114.0 >
  140. }
  141. composite {
  142.    Pillar
  143.    translate <176.0 0.0 112.0 >
  144. }
  145.